-----------------------------------------------------------
-- LUA Hearts of Iron 3 Netherlands File
-- Created By: Lothos
-- Modified By: Lothos
-- Date Last Modified: 5/22/2010
-----------------------------------------------------------

local P = {}
AI_HOL = P

-- Production Weights
--   1.0 = 100% the total needs to equal 1.0
function P.ProductionWeights(voProductionData)
	local laArray
	
	if voProductionData.IsAtWar() then
		-- Desperation check and if so heavy production of land forces
		laArray = {
			0.60, -- Land
			0.10, -- Air
			0.10, -- Sea
			0.20}; -- Other
	else
		laArray = {
			0.10, -- Land
			0.20, -- Air
			0.45, -- Sea
			0.25}; -- Other
	end
	
	return laArray
end

function P.DiploScore_OfferTrade(score, ai, actor, recipient, observer, voTradedFrom, voTradedTo)
	if tostring(actor) == "JAP" then
		score = score + 30
	end
	
	return score
end

function P.DiploScore_InviteToFaction(score, ai, actor, recipient, observer)
	-- Whatever their chance is lower it by 10 makes it harder to get them in
	return (score - 10)
end


--Holand defences
-- http://en.wikipedia.org/wiki/File:Dutch_defense_lines_-_ln-en.jpg
--http://www.waroverholland.nl/index.php?page=photo&pid=8886
--http://storage.kennispuntmei1940.nl/images/greb/kaart/hires/kaart_2.jpg - thin dotlines represnt fortifications
--wonsline was tranches and timber gunpoints so it is fort level 0 C,B,A,G,K were never saw an acion
function P.Build_Fort(ic, voProductionData, vbGoOver)
-- the closer to the top the higher priority is
	--local year = CCurrentGameState.GetCurrentDate():GetYear()
	--need to find out historical dates of construction

	ic = Support.Build_Fort(ic, voProductionData, 1911, 1, vbGoOver) -- Amersfoort
	--ic = Support.Build_Fort(ic, minister, 1966, 1, vbGoOver) -- Utrecht
	--ic = Support.Build_Fort(ic, minister, 2081, 1, vbGoOver) -- Rotterdam
	--ic = Support.Build_Fort(ic, minister, 2022, 1, vbGoOver) -- Haag
	--ic = Support.Build_Fort(ic, minister, 2139, 1, vbGoOver) -- Breda
	--ic = Support.Build_Fort(ic, minister, 1734, 1, vbGoOver) -- O line and Q line
	--ic = Support.Build_Fort(ic, minister, 1793, 1, vbGoOver) -- O line and Q line	
	return ic
end


-- Not only was the Dutch Army poorly equipped; it was also poorly trained
function P.CallLaw_training_laws(minister, voCurrentLaw)
	return CLawDataBase.GetLaw(28) -- _BASIC_TRAINING_
end

return AI_HOL